home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / ply15dat.zip / SWEEP4.PI < prev    next >
Text File  |  1992-09-19  |  1KB  |  46 lines
  1. // Generic Polyray input File
  2. // Polyray input file: Alexander Enzmann
  3.  
  4. // Set up the camera
  5. viewpoint {
  6.    from <0,4,-8>
  7.    at <0,0,0>
  8.    up <0,1,0>
  9.    angle 30
  10.    resolution 128, 128
  11.    }
  12.  
  13. include "..\colors.inc"
  14.  
  15. background <0, 0, 0>
  16. light <-10, 10, -20>
  17.  
  18. define r0 1
  19. define r1 2
  20. define dt (2.0 * 3.14159265) / 14
  21.  
  22. define star_column
  23. object {
  24.    sweep 2, <0, 1, 0>, 15,
  25.          <r0*cos( 1*dt), r0*sin( 1*dt)>, <r1*cos( 2*dt), r1*sin( 2*dt)>,
  26.          <r0*cos( 3*dt), r0*sin( 3*dt)>, <r1*cos( 4*dt), r1*sin( 4*dt)>,
  27.          <r0*cos( 5*dt), r0*sin( 5*dt)>, <r1*cos( 6*dt), r1*sin( 6*dt)>,
  28.          <r0*cos( 7*dt), r0*sin( 7*dt)>, <r1*cos( 8*dt), r1*sin( 8*dt)>,
  29.          <r0*cos( 9*dt), r0*sin( 9*dt)>, <r1*cos(10*dt), r1*sin(10*dt)>,
  30.          <r0*cos(11*dt), r0*sin(11*dt)>, <r1*cos(12*dt), r1*sin(12*dt)>,
  31.          <r0*cos(13*dt), r0*sin(13*dt)>, <r1*cos(14*dt), r1*sin(14*dt)>,
  32.      <r0*cos( 1*dt), r0*sin( 1*dt)>
  33.    shiny_red
  34.    }
  35.  
  36. star_column
  37.  
  38. // Create a ground plane
  39. object {
  40.    polygon 4, <-20,-2, -20>, <-20,-2, 20>, <20,-2, 20>, <20,-2, -20>
  41.    texture {
  42.       checker matte_white, matte_black
  43.       translate <0, 0.1, 0>
  44.       }
  45.    }
  46.